Internet.Works 40/Issue 40.iso/pc/MacToolkit/00034_Tool1.ls

Text File | 2000-09-26 | 757 b | 31 lines

on mouseWithin
  if sprite(the currentSpriteNum).foreColor = 70 then
    sprite(the currentSpriteNum).foreColor = 70
    member("Title1").foreColor = 0
    put EMPTY into member "Infofield"
  else
    if sprite(the currentSpriteNum).foreColor <> 70 then
      cursor(280)
      sprite(the currentSpriteNum).foreColor = 255
      member("Title1").foreColor = 0
    end if
  end if
end

on mouseLeave
  cursor(0)
  if sprite(the currentSpriteNum).foreColor = 70 then
    sprite(the currentSpriteNum).foreColor = 70
    member("Title1").foreColor = 0
  else
    if sprite(the currentSpriteNum).foreColor <> 70 then
      sprite(the currentSpriteNum).foreColor = 246
      member("Title1").foreColor = 255
    end if
  end if
end

on mouseUp
  go("Title1")
end